home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / --llfb-- / programas / sources1.dms / sources1.adf / SOURCES / Disco / Loader.ASM < prev   
Assembly Source File  |  1996-06-04  |  2KB  |  79 lines
  1. ;THE TIMECIRCLE PRESENTS The loader for selector program
  2. ;Also (C)1988 by Brian Postma
  3. ;P.O.Box 367
  4. ;7570 AJ Oldenzaal
  5. ;Holland
  6. ;or call:05410-14763
  7.  
  8.  
  9. execbase = 4        ;basisadres exec
  10. openlib = -552        ;offset voor openlib
  11. closelib = -414        ;idem        closelib
  12. output = -60        ;huidige uitgave-device
  13. write = -48        ;gegevens uitgeven
  14.  
  15. start:
  16.     movem.l d0-d7/a0-a6,-(a7)
  17.     move.l    execbase,a6    ;basisadres halen
  18.     lea    dosname,a1    ;adres bib naam
  19.     moveq    #0,d0        ;willekuerige versie
  20.     jsr    openlib(a6)    ;dos-bib openen
  21.     move.l    d0,dosbase    ;basisadres bib
  22.     move.l    d0,a6        ;
  23.     jsr    output(a6)    ;filehandler halen
  24.     move.l    d0,outhandle    ;zeker stellen
  25.     jsr    main        ;naar main
  26.     movem.l  (a7)+,d0-d7/a0-a6
  27.     jsr    execute
  28.     rts
  29.  
  30.  
  31. main:
  32.     move.l    dosbase,a6
  33.     move.l    outhandle,d1
  34.     move.l    #ttc,d2
  35.     move.l #ttcend-ttc,d3
  36.     jsr    write(a6)
  37.     rts
  38.  
  39.  
  40. execute:movem.l    d1-d7/a0-a6,-(sp)
  41.     move.l    dosbase,a6
  42.     move.b    $84,d1
  43.     lea    Name,a0
  44. Loop1:    cmp.b    (a0)+,d1
  45.     bne.s    Loop1
  46.     move.l    a0,d1        ;string
  47.     clr.l    d2
  48.     clr.l    d3
  49.     jsr    -222(a6)    ;Execute
  50.     movem.l    (sp)+,d1-d7/a0-a6
  51.     clr.l    d0
  52.     rts
  53.  
  54. *-------------------------------------------
  55. Name:    dc.b    1,"first file",0        ;first number of file
  56.     dc.b    2,"second file",0        ;after that the name
  57.     dc.b    3,"another file",0        ;followed by 0 (zero)
  58.     dc.b    4,"damn' one more !!",0
  59.  
  60.     even
  61. outhandle:
  62.     dc.l    0
  63. dosbase:
  64.     dc.l    0
  65. dosname:
  66.     dc.b    "dos.library",0
  67.  
  68. ttc:
  69.     dc.b    27,"c",27,"[0x",27,"[80u",27,"[0y",27,"[25t",12
  70.     dc.b    27,"[3m",10,10,10,10,10,10,10,10,10
  71.     dc.b    "                          This source was presented by"
  72.     dc.b    10,10
  73.     dc.b    "                                THE TIMECIRCLE        "
  74.     dc.b    10,10
  75.     dc.b    "                             A touch of perfection    "
  76.     dc.b    10,10,10,10,10,27,"[0m",0
  77. ttcend:
  78.     even
  79.